Sample Code - ActivatePrintWindow Event

This sample code shows the use of the ActivatePrintWindow Event (Window Object). Modify the following sample code to fit your needs.

Option Explicit

Public WithEvents windowEvs As Window


Private Sub ActivatePrintWindow_Click()
'Starts up report window for window event ActivatePrintWindow
Dim rpt As CRPEAuto.Report
Dim rptView As CRPEAuto.View
Dim test As Integer

On Error GoTo ErrorHandler
Set rpt = crsApp.OpenReport(SimpleReport)
test = MsgBox("Event default: Enabled = " & _
    rpt.EventInfo.ActivatePrintWindowEventEnabled & _
    Chr(13) & Chr(13) & "Disable event?", vbYesNo)
If test = vbYes Then
rpt.EventInfo.ActivatePrintWindowEventEnabled = False
MsgBox "Check event does not occur when print window activated"
Else
rpt.EventInfo.ActivatePrintWindowEventEnabled = True
MsgBox "Check event occurs when print window activated. _
        Switch between this form and report window and _
        window should be activated/deactivated"
End If
Set rptView = rpt.Preview
Set windowEvs = rptView.Parent
WinText.Visible = True
Exit Sub ' Exit to avoid handler.

ErrorHandler:
If crsApp.LastErrorCode <> 0 Then
MsgBox "Unexpected application error: " & _
        crsApp.LastErrorCode & "->" & crsApp.LastErrorString
End If
If rpt.LastErrorCode <> 0 Then
MsgBox "Unexpected application error: " & rpt.LastErrorCode & "- >" & rpt.LastErrorString
End If
If Err.Number <> 0 Then
MsgBox "Unexpected VB error: " & Err.Number & "->" & Err.Description
End If
Call ResetErr
rpt.ClearError
Resume Next
End Sub


Seagate Software IMG Holdings, Inc.
http://www.seagatesoftware.com
Support services:
http://support.seagatesoftware.com